home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CyberCrypt192135420.psc / CyberCrypt Self-Extractor edition 8.0 / SubMenuMod.bas < prev   
Encoding:
BASIC Source File  |  2001-01-23  |  2.0 KB  |  65 lines
  1. Attribute VB_Name = "SubMenuMod"
  2. Public Sub SetNewMenu()
  3.     frmMain.Click09.Enabled = True
  4.     frmMain.Click11.Enabled = True
  5.     frmMain.Click12.Enabled = True
  6.     frmMain.Click13.Enabled = True
  7.     frmMain.Click14.Enabled = True
  8.     frmMain.Click16.Enabled = True
  9.     frmMain.Click17.Enabled = True
  10.     frmMain.Click18.Enabled = False
  11.     frmMain.Click19.Enabled = False
  12.     frmMain.Click20.Enabled = False
  13.     frmMain.Click21.Enabled = False
  14.     frmMain.Click22.Enabled = False
  15.     frmMain.Click23.Enabled = False
  16.     frmMain.Click233.Enabled = False
  17. End Sub
  18.  
  19. Public Sub SetOpenMenu()
  20.     frmMain.Click09.Enabled = True
  21.     frmMain.Click11.Enabled = True
  22.     frmMain.Click12.Enabled = True
  23.     frmMain.Click13.Enabled = True
  24.     frmMain.Click14.Enabled = True
  25.     frmMain.Click16.Enabled = True
  26.     frmMain.Click17.Enabled = True
  27.     frmMain.Click18.Enabled = True
  28.     frmMain.Click19.Enabled = True
  29.     frmMain.Click20.Enabled = True
  30.     frmMain.Click21.Enabled = True
  31.     frmMain.Click22.Enabled = True
  32.     frmMain.Click23.Enabled = True
  33.     frmMain.Click233.Enabled = True
  34. End Sub
  35.  
  36. Public Sub SetAddMenu()
  37.     frmMain.Click16.Enabled = True
  38.     frmMain.Click17.Enabled = True
  39.     frmMain.Click18.Enabled = True
  40.     frmMain.Click19.Enabled = True
  41.     frmMain.Click20.Enabled = True
  42.     frmMain.Click21.Enabled = True
  43.     frmMain.Click22.Enabled = True
  44.     frmMain.Click23.Enabled = True
  45.     frmMain.Click233.Enabled = True
  46. End Sub
  47.  
  48. Public Sub SetCloseMenu()
  49.     frmMain.Click09.Enabled = False
  50.     frmMain.Click11.Enabled = False
  51.     frmMain.Click12.Enabled = False
  52.     frmMain.Click13.Enabled = False
  53.     frmMain.Click14.Enabled = False
  54.     frmMain.Click16.Enabled = False
  55.     frmMain.Click17.Enabled = False
  56.     frmMain.Click18.Enabled = False
  57.     frmMain.Click19.Enabled = False
  58.     frmMain.Click20.Enabled = False
  59.     frmMain.Click21.Enabled = False
  60.     frmMain.Click22.Enabled = False
  61.     frmMain.Click23.Enabled = False
  62.     frmMain.Click232.Enabled = False
  63.     frmMain.Click233.Enabled = False
  64. End Sub
  65.